home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Maze of DO197425182001.psc / frmSplash.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-05-16  |  6.5 KB  |  194 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   4245
  5.    ClientLeft      =   255
  6.    ClientTop       =   1410
  7.    ClientWidth     =   7380
  8.    ClipControls    =   0   'False
  9.    ControlBox      =   0   'False
  10.    Icon            =   "frmSplash.frx":0000
  11.    KeyPreview      =   -1  'True
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4245
  16.    ScaleWidth      =   7380
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.Frame Frame1 
  20.       Height          =   4050
  21.       Left            =   150
  22.       TabIndex        =   0
  23.       Top             =   60
  24.       Width           =   7080
  25.       Begin VB.Image imgLogo 
  26.          Height          =   2505
  27.          Left            =   360
  28.          Picture         =   "frmSplash.frx":000C
  29.          Stretch         =   -1  'True
  30.          Top             =   675
  31.          Width           =   1815
  32.       End
  33.       Begin VB.Label lblCopyright 
  34.          Caption         =   "Copyright
  35.  1999-2001 Edz Skateboarding"
  36.          BeginProperty Font 
  37.             Name            =   "Arial"
  38.             Size            =   8.25
  39.             Charset         =   0
  40.             Weight          =   400
  41.             Underline       =   0   'False
  42.             Italic          =   0   'False
  43.             Strikethrough   =   0   'False
  44.          EndProperty
  45.          Height          =   255
  46.          Left            =   3840
  47.          TabIndex        =   4
  48.          Top             =   3060
  49.          Width           =   3135
  50.       End
  51.       Begin VB.Label lblCompany 
  52.          Caption         =   "Edz Skateboarding"
  53.          BeginProperty Font 
  54.             Name            =   "Arial"
  55.             Size            =   8.25
  56.             Charset         =   0
  57.             Weight          =   400
  58.             Underline       =   0   'False
  59.             Italic          =   0   'False
  60.             Strikethrough   =   0   'False
  61.          EndProperty
  62.          Height          =   255
  63.          Left            =   4680
  64.          TabIndex        =   3
  65.          Top             =   3270
  66.          Width           =   1695
  67.       End
  68.       Begin VB.Label lblWarning 
  69.          Caption         =   "Warning - Do NOT distribute without asking the publisher"
  70.          BeginProperty Font 
  71.             Name            =   "Arial"
  72.             Size            =   8.25
  73.             Charset         =   0
  74.             Weight          =   400
  75.             Underline       =   0   'False
  76.             Italic          =   0   'False
  77.             Strikethrough   =   0   'False
  78.          EndProperty
  79.          Height          =   195
  80.          Left            =   120
  81.          TabIndex        =   2
  82.          Top             =   3660
  83.          Width           =   6855
  84.       End
  85.       Begin VB.Label lblVersion 
  86.          Alignment       =   1  'Right Justify
  87.          AutoSize        =   -1  'True
  88.          Caption         =   "Version 1.0"
  89.          BeginProperty Font 
  90.             Name            =   "Arial"
  91.             Size            =   12
  92.             Charset         =   0
  93.             Weight          =   700
  94.             Underline       =   0   'False
  95.             Italic          =   0   'False
  96.             Strikethrough   =   0   'False
  97.          EndProperty
  98.          Height          =   285
  99.          Left            =   5580
  100.          TabIndex        =   5
  101.          Top             =   2700
  102.          Width           =   1275
  103.       End
  104.       Begin VB.Label lblPlatform 
  105.          Alignment       =   1  'Right Justify
  106.          AutoSize        =   -1  'True
  107.          Caption         =   "Windows 9x"
  108.          BeginProperty Font 
  109.             Name            =   "Arial"
  110.             Size            =   15.75
  111.             Charset         =   0
  112.             Weight          =   700
  113.             Underline       =   0   'False
  114.             Italic          =   0   'False
  115.             Strikethrough   =   0   'False
  116.          EndProperty
  117.          Height          =   360
  118.          Left            =   5025
  119.          TabIndex        =   6
  120.          Top             =   2340
  121.          Width           =   1830
  122.       End
  123.       Begin VB.Label lblProductName 
  124.          AutoSize        =   -1  'True
  125.          Caption         =   "Maze Of DOOM"
  126.          BeginProperty Font 
  127.             Name            =   "Arial"
  128.             Size            =   32.25
  129.             Charset         =   0
  130.             Weight          =   700
  131.             Underline       =   0   'False
  132.             Italic          =   0   'False
  133.             Strikethrough   =   0   'False
  134.          EndProperty
  135.          Height          =   765
  136.          Left            =   2280
  137.          TabIndex        =   8
  138.          Top             =   1200
  139.          Width           =   4680
  140.       End
  141.       Begin VB.Label lblLicenseTo 
  142.          Alignment       =   1  'Right Justify
  143.          Caption         =   "LicenseTo Edz Skateboarding"
  144.          BeginProperty Font 
  145.             Name            =   "Arial"
  146.             Size            =   8.25
  147.             Charset         =   0
  148.             Weight          =   400
  149.             Underline       =   0   'False
  150.             Italic          =   0   'False
  151.             Strikethrough   =   0   'False
  152.          EndProperty
  153.          Height          =   255
  154.          Left            =   120
  155.          TabIndex        =   1
  156.          Top             =   240
  157.          Width           =   6855
  158.       End
  159.       Begin VB.Label lblCompanyProduct 
  160.          AutoSize        =   -1  'True
  161.          Caption         =   "Edz Skateboarding"
  162.          BeginProperty Font 
  163.             Name            =   "Arial"
  164.             Size            =   18
  165.             Charset         =   0
  166.             Weight          =   700
  167.             Underline       =   0   'False
  168.             Italic          =   0   'False
  169.             Strikethrough   =   0   'False
  170.          EndProperty
  171.          Height          =   435
  172.          Left            =   2355
  173.          TabIndex        =   7
  174.          Top             =   705
  175.          Width           =   3255
  176.       End
  177.    End
  178. Attribute VB_Name = "frmSplash"
  179. Attribute VB_GlobalNameSpace = False
  180. Attribute VB_Creatable = False
  181. Attribute VB_PredeclaredId = True
  182. Attribute VB_Exposed = False
  183. Option Explicit
  184. Private Sub Form_KeyPress(KeyAscii As Integer)
  185.     Unload Me
  186. End Sub
  187. Private Sub Form_Load()
  188.     lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
  189.     lblProductName.Caption = App.Title
  190. End Sub
  191. Private Sub Frame1_Click()
  192.     Unload Me
  193. End Sub
  194.